home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
mcga#01.zip
/
MCGA01.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-06-11
|
874b
|
57 lines
Unit MCGA01;
interface
Procedure SetGraphMode (Num:Byte);
Procedure SetPixelPas (X,Y:Integer;Color:Byte);
Procedure SetPixelAsm (X,Y:Integer;Color:Byte);
implementation
var
ScreenWide : Integer;
ScreenAddr : Word;
Procedure SetGraphMode (Num:Byte);
begin
asm
mov al,Num
mov ah,0
int 10h
end;
Case Num of
$13 : ScreenWide := 320;
end;
ScreenAddr := $A000;
end;
Procedure SetPixelPas (X,Y:Integer;Color:Byte);
var
Ofs : Word;
begin
Ofs := Y * ScreenWide + X;
Mem [ScreenAddr:Ofs] := Color;
end;
Procedure SetPixelAsm (X,Y:Integer;Color:Byte);
begin
asm
push ds
mov ax,ScreenAddr
mov ds,ax
mov ax,Y
mov bx,320
mul bx
mov bx,X
add bx,ax
mov al,Color
mov byte ptr ds:[bx],al
pop ds
end;
end;
Begin
End.